(archive-set-buffer-as-visiting-file): Bind buffer-undo-list

to t (undo-ask is reproducible by visiting nested archives).

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index ac8ee271642d366c2e19543ce0e79ee1c30e9e2f..96b41eca88d72f99c6bb8f0b482e978999b2e18d 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -863,7 +863,8 @@ using `make-temp-file', and the generated name is returned."
   "Set the current buffer as if it were visiting FILENAME."
   (save-excursion
     (goto-char (point-min))
-    (let ((coding
+    (let ((buffer-undo-list t)
+         (coding
           (or coding-system-for-read
               (and set-auto-coding-function
                    (save-excursion